home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / iqb9103.zip / ISHERC.BAS < prev    next >
BASIC Source File  |  1991-03-08  |  326b  |  18 lines
  1. ' $INCLUDE: 'QB.BI'
  2. DIM Regs AS RegType
  3.  
  4.   Regs.AX = &HEF00
  5.   Regs.DX = &H00FF
  6.   CALL Interrupt (&H10, Regs, Regs)
  7.   DL = Regs.DX MOD 256
  8.  
  9.   SELECT CASE DL
  10.     CASE 0
  11.         Print "MS-HERC is loaded."
  12.     CASE 255
  13.         PRINT "MS-HERC is not loaded."
  14.     CASE ELSE
  15.         PRINT "I am confused. DL = ";DL
  16.   END SELECT
  17.   END
  18.